home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
aryint.eg
< prev
next >
Wrap
Text File
|
1991-01-08
|
199b
|
7 lines
@rollerskaters=('adam','dale','loredana','merlyn','vicki');
@pilots=('geoff','jim','merlyn','rick');
local(%mark);
grep($mark{$_}++,@rollerskaters);
@crazy=grep($mark{$_},@pilots);
print "@crazy\n";